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| 14-Sep 1982 95: ee PDL LSREICREA REATEFOL.B32;1 . (1) Vv 
H 1 2) ZTITLE ‘VAX-11 RMS Utilities’ 

3 ¢ 0 § ZSBTTL ‘CREATEFDL = CREATE/FDL' 

; 00 MODULE CREATEFDL ( IDENT="V04-000', 

$ 4 004 ADDRESSIN MODE ¢ “EXTERNAL = GENERAL ), 

3 5 005 OPTLEVEL= 

; 6 4 MAIN=START. 
; 7 000 )= 

; 8 0008 

3 9 0009 1 BEGIN 

; 0010 1 
s \ Oot ! Vee RRR RARER AREER AREER AAAAAAREA AAA AAET EAA RAARERARERAERERERERAEHRERAREE | 
5 1 '® 
i. 8018 1 is COPYRIGHT (c) 1978 1980, 1982, 1984 8 * | 
a 0014 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * | 
; 1? Bete : 1* ALL RIGHTS RESERVED 2 
: '® 

: 17 $017 1 !® THIS SOFTWARE 4 FURNISHED wees A LICENSE AND MAY BE USED AND COPIED * | 
§ 18 0018 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 19 0019 1 !* INCLUSION OF THE ABOVE gph had NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 20 0020 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * | 
; 21 0021 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; 3¢ 00¢¢ 1 is TRANSFERRED. * | 
: ‘a * 

; e4 0024 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; 25 0025 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $8 Boss : ps CORPORATION. * 
. Me ® 

3 28 0028 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

3 29 0029 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 0030 1 !* * 
3 31 0031 1 !* * 

: 32 0032 1S eke eee eee eee eRe RERKAA RARER 
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VAK=11 FOL Utilities 1§- ss-32 V 
ne 14 FDL. SRCICREATEFDOL.B32; (4) 


Main Rout 


CREATEFDL 
vOe~000 


Los = CLISPRESENT ( DESCRIPTOR( ‘LOG’ ) ); 

Get the FDL file name 

CLISGET_VALUE( DESCRIPTOR( "FDL_FILE*® ),FDL_FILE_NAM ); 

If there was an output file name given pass it to create 

IF CLISGET_VALUE( DESCRIPTOR( 'FILE_NAME' ),FILE_NAM ) 

eg ATS = FDOLSCREATE ( FOL_FILE_NAM,FILE_NAM,O,RESULT_NAM,O,FLAGS ) 
STATUS = FDLSCREATE ( FDL_FILE_NAM,0,0,RESULT_NAM,O,FLAGS ); 

if ,L06 AND .STATUS 
SIGNAL( FDLS_CREATED,1,RESULT_NAM ); 

RETURN .STATUS 

1 END; 
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C2 00 C0 CD CD 
ANNO 


- TITLE tH eat VAX-11 FDL Utilities 
\V04-000\ 


IDENT 
.PSECT $PLITS,NOWRT,NOEXE,2 
47? 4F 4 90000 P.AAB: .ASCII \LOG\ 
999 LKB] 
90000003 004 P.AAA: <LONG 3 
000000° 00008 -ADDRESS P.AAB 
45 46C 49 466 SF 4C 46 46 QOOC P.AAD: ASCII \FOL_FILE\ 
009 000 0014 PLAAC: .LONG 8 
0000000' 00018 ADDRESS P.AAD 
45 4D 41 GE SF 45 4C 49 46 aaoes PAAAF: .ASCIT  \FILENAME\ 
00000009 0038 P.AAE: .LONG 9 
00000000" 0002c¢ ADDRESS P.AAF 
.PSECT SOWNS,NOEXE ,2 
00# 00000 FOL_FILE_NAM: 
-BYTE OC2) 
02 O€ 002 -BYTE 14, 2 
“BLKB 4 
00# 00008 FILE_NAM: 
-BYTE ore) 
02 O€ BOA -BYTE 4, 2 
¢ “BLKB 4 
00# 00010 RESULT_NAM: 
-BYTE of2) 
02 OE O02 -BYTE 4, 2 
14 “BLKB 4 


-EXTRN FDLS_FACILITY, FDLS_FAO_MAX 
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CREATEFOL VAX=-11 FDL Utilities 16-Sep-1 7:13 AX-11 Bliss-32 V4.0-74 Page 6 
vivant Main hoottas 14-Sep ety fi 96: gr: :16 FDL.SRC CREATE RDL o3501 ° (4) 
.EXTRN FDLS$_ABKW, FDL$_ABPRIKW 
-EXTRN FDLSICREATE, FDC$_CREATED 
SEXTRN FDLS-CREATEDSTM 
-EXTRN FDLS"FDLERROR, FDL$_ILL_ARG 
-EXTRN FDLS"INSVIRMEM, FDLS INVBLK 
-EXTRN FDLS_INVDATIM, FDL$_AMULPRI 
-EXTRN FDLSMULSEC, FDL$_NOQUAL 
“EXTRN FOLS"NULLPRI POLS OPENFDL 
-EXTRN FDLSTOUTORDER, FOL$_OPENOUT 
-EXTRN FDLS"WRITEERR, FOL$-READERR 
-EXTRN FDLS$-RFLOC, FOLS$_TITLE 
-EXTRN FDLS_SYNTAX, FDLS_VALPRI 
~-EXTRN FDLS-UNQUAKW, FDLS_UNPRIKW 
-EXTRN FDLS_UNSECKW, FOLS” WARNING 
-EXTRN FDLSTREATE, CLISGET_VALUE 
-EXTRN CLISPRESENT | 
.PSECT $CODES,NOWRT,2 | 
003C C0000 START: .WORD Save R2,R3,R4.R5 : 0796 | 
55 000000006 00 9€ 00002 MOVAB CLISGET VALUE, RS : | 
34 0000' CF 9E 00009 MOV RESULT_RAM, R4 : | 
E 04 C2 0000E SUBL2 #4, SP ; 
6E 01 88 00011 BISB2 #1. FLAGS > 0847 | 
6E 12 8A 00014 BICB2 #18, FLAGS ; 0849 | 
0000' CF 9F 90017 PUSHAB  P.AAA : 0853) 
000000006 09 01 FB 0001 CALLS #i, CLISPRESENT ; | 
5 50 00 000 MOVL RO. LOG ; 
AQ OF 990 PUSHAB FDL_FILE_NAM : 0857) 
0000" CF 9F 00028 PUSHAB P.AAC ; | 
65 02 FB 00 C CALLS #2, CLISGET_VALUE ; | 
FB AG OF OO02F PUSHAB  FILE_NAM : 0861. 
0000" CF 9F 00032 PUSHAB P.AAE ; | 
65 G2 FB 000 CALLS #2, CLISGET_VALUE : | 
0D 56 «E9 00 BLBC ~=—_—«aRO,. «18 ; | 
3 DD 0003¢ PUSHL SP : 0863 | 
E D4 0003E CLR =(SP) ; | 
54 0D 0040 PUSHL R4 ; | 
7E p4 004 CLRL. = (SP) ; | 
FB AG OOF 00044 PUSHAB FILE_NAM ; 
08 11 00047 BRB 2$ : 
E DD 00049 1$ PUSHL SP > 0865 | 
7E 04 00048 CLRL. = =( SP) ; 
4 bp O40 PUSHL R4 : 
E 7C Q004F CLRQ. (SP) : 
FO AG 9F 00051 2% PUSHAB FDL_FILE_NAM : 
000000006 99 F 054 CALLS #6, FDLSTREATE ; 
2 D 098 MOVL RO, STATUS ; 
14 E9 000 F BLBC ~=—>._—«LOG : 0867 
11 2 £9 0006 BLBC Status. 3$ ; 
4 DD 00064 PUSHL > 0869 
601 oo PUSHL i ; | 
00000006 99 "Ok Pe CALLS #5, CTBBS LGNAL eet 
8 ) 00 ; 38 MOV $T tart nO ; 087) 
4 0007 RET ; 0873 


Be Se Oe Be Oe Oe Be Be Oe Be Se Se Se Se Se Se Be Ge Ge SH Se FH Se Se Se Be ee SHH Se Se Se Se Ge Se Se Se Se Se SHS Se Se Se Se Se Se Se Se Se Se Se Se ee Se Beas 


4 
CREATEFOL VAX=11 FDL Utilities } 16. Sep-1984 7:13 AX-11 Bliss-32 V4.0-74 Page 7) 
yon-080 Main Routine 14- ~300 71382 98: ee 16 FOL. SREICR REA ATEFDL 63204 . (4). 
; Routine Size: 121 bytes, Routine Base: S$CODE$ + 0000 
132 0874 1 
156 0875 0 END ELUDOM 
«EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 
SOWNS 24 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 48 NOVEC,NUWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 121 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
ager amen Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
.$255$DUA28: CSYSLIBISTARLET.L32;1 9776 10 0 581 00:01.0 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:CREATEFDL/OBJ=OBJ$:CREATEFDL MSRC$:CREATEFDL/UPDATE =(ENHS: CREATEF DL) 
; Size: 121 code + 72 data bytes 

Time: 00:08. ! 


; Elapsed Time: 00:30. 
; Lines/CPU Min: 657 

; a Ah de 29896 
; Y Used: 115 pages 
; a ation Complete 


017 AH-BT1i3A-SE MENT CORPORATION 
| A 


ND PROPRIETARY 
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